

package TagServer::Control;


#UML_MODELER_BEGIN_PERSONAL_VARS_Control

#UML_MODELER_END_PERSONAL_VARS_Control

use TagServer::iServer;
use TagClient::iView;
use TagServer::iModel;
use TagServer::Event;

use base qw( TagServer::iServer );



=head1 CONTROL



=cut


=head1 PUBLIC ATTRIBUTES

=pod 



=cut


=head1 PUBLIC METHODS

=pod 

=head3 onEvt

   Parameters :
      evt : TagServer::Event : 

   Return : 
      

   Description : 
      

=cut

sub onEvt
{
  my($self,
     $evt, # TagServer::Event : 
    ) = @_;
#UML_MODELER_BEGIN_PERSONAL_CODE_onEvt
#UML_MODELER_END_PERSONAL_CODE_onEvt
}




=cut


=head1 METHODS FOR SUBCLASSING



=cut


=head1 PRIVATE METHODS



=cut






return 1;
